home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 94 / 094.d81 / error trap (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  58 lines
  1. 10 poke53281,0:print"[147]"
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"(1) [208]rinter routine
  4. 40 [153]"(2) (NULL)oad routine
  5. 50 print"(3) [211]ave routine
  6. 60 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]60
  7. 70 f$[178]"test"
  8. 80 [145][197](a$)[141]400,500,600
  9. 90 [144]
  10. 397 :
  11. 398 :[143]  printer routine
  12. 399 :
  13. 400 [159]4,4,7:[160]4
  14. 410 [139]st[178]0[167][142]
  15. 420 [153]"(NULL)rinter not on - press a key"
  16. 430 [161]a$:[139]a$[178]""[167]430
  17. 440 [142]
  18. 497 :
  19. 498 :[143]  load routine
  20. 499 :
  21. 500 [141]1000:[139]fl[167][142]
  22. 510 [141]2000
  23. 520 [139]er[179][177]63[167][153]er;er$;t;s:[142]
  24. 530 [153]"file loaded"
  25. 540 [142]
  26. 597 :
  27. 598 :[143]  save routine
  28. 599 :
  29. 600 [141]1000:[139]fl[167][142]
  30. 610 [141]2000
  31. 620 [139]er[179]62[176]er[177]63[167][153]er;er$;t;s:[142]
  32. 630 [139]er[178]62[167]680
  33. 640 [153]er$" - want to replace? (y/n)"
  34. 650 [161]a$:[139]a$[178]""[167]650
  35. 660 [139]a$[179][177]"y"[167][142]
  36. 670 [159]15,dv,15,"s:"[170]f$:[160]15
  37. 680 [158]57812f$,dv:[151]193,0:[151]194,8:[151]174,0:[151]175,40:[158]62954
  38. 690 [141]3000
  39. 700 [139]er[167][153]er;er$;s;t:[142]
  40. 710 [153]"file saved"
  41. 720 [142]
  42. 997 :
  43. 998 :[143]  check for drive being on
  44. 999 :
  45. 1000 fl[178]0:[159]15,dv,15:[160]15
  46. 1010 [139]st[178][171]128[167][153]"str$rive not on":fl[178]1
  47. 1020 [142]
  48. 1997 :
  49. 1998 :[143]  check for file existing
  50. 1999 :
  51. 2000 [160]15:[159]15,dv,15,"r:"[170]f$[170]"="[170]f$
  52. 2010 [132]15,er,er$,t,s
  53. 2020 [160]15:[142]
  54. 2997 :
  55. 2998 :[143]  check for save error
  56. 2999 :
  57. 3000 [160]15:[159]15,dv,15:[132]15,er,er$,s,t:[160]15:[142]
  58.